home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / wsbrief.m < prev    next >
Encoding:
Text File  |  1985-06-29  |  2.9 KB  |  115 lines
  1. ;**
  2. ;**       BRIEF -- Basic Reconfigurable Interactive Editing Facility
  3. ;**
  4. ;**        Written by Dave Nanian and Michael Strickman.
  5. ;**
  6. ;**
  7. ;**        ws.m:
  8. ;**
  9. ;**    insert an include ws.m in the startup file.
  10. ;**   moves cursor over virtual areas (over tabs and to EOL and BOL) when
  11. ;**   cursor arrow keys are pressed
  12. ;**   
  13. ;**    cntrl w writes buffer
  14. ;**    cntrl x exits
  15. ;**    cntrl z performs dos call
  16. ;**    cntrl y deletes line
  17. ;** basicly the 'alt' codes were changed to 'cntrl' codes
  18. ;
  19. ;
  20. ;             tim purves 06/20/85
  21. ;
  22.  
  23. (macro wsup
  24.     (
  25.         (up)
  26.         (next_char)
  27.         (prev_char)
  28.     )
  29. )
  30.  
  31. (macro wsdown
  32.     (
  33.         (down)
  34.         (prev_char)
  35.         (next_char)
  36.     )
  37. )
  38.  
  39. (macro wsfwd
  40.     (next_char)
  41. )
  42.  
  43. (macro wsback
  44.     (prev_char)
  45. )
  46.  
  47. (macro mark_pos
  48.     (save_position)
  49. )
  50.  
  51. (macro res_pos
  52.     (restore_position 1)
  53. )
  54.  
  55.  
  56. (macro sample
  57.     (
  58.         ;** Set up the key assignments.  If you want to assign to keys other
  59.         ;** than those shown here, use the "key" macro to find the appropriate 
  60.         ;** key codes.
  61.  
  62.         (assign_to_key "#23" "write_buffer")
  63.         (assign_to_key "#5" "edit_file")
  64.         (assign_to_key "#18" "read_file")
  65.         (assign_to_key "%#64" "translate")
  66.         (assign_to_key "#21" "undo")
  67.         (assign_to_key "#22" "insert_mode")
  68.         (assign_to_key "%#24" "output_file")
  69.         (assign_to_key "#16" "print")
  70.         (assign_to_key "#1" "mark")
  71.         (assign_to_key "%#31" "search_fwd")
  72.         (assign_to_key "#25" "delete_line")
  73.         (assign_to_key "%#34" "goto_line")
  74.         (assign_to_key "#17" "delete_to_eol")
  75.         (assign_to_key "#26" "dos")
  76.         (assign_to_key "#24" "exit")
  77.         (assign_to_key "%#46" "search_case")
  78.         (assign_to_key "%#47" "version")
  79.         (assign_to_key "%#50" "mark")
  80.         (assign_to_key "#14" "change_window")
  81.         (assign_to_key "%#60" "move_edge")
  82.         (assign_to_key "%#61" "create_edge")
  83.         (assign_to_key "%#62" "delete_edge")
  84.         (assign_to_key "%#63" "search_fwd")
  85.         (assign_to_key "%#64" "translate")
  86.         (assign_to_key "%#65" "remember")
  87.         (assign_to_key "%#66" "playback")
  88.         (assign_to_key "%#67" "load_macro")
  89.         (assign_to_key "%#68" "execute_macro")
  90.         (assign_to_key "%#71" "top_of_window")
  91.         (assign_to_key "%#72" "wsup")
  92.         (assign_to_key "%#73" "page_up")
  93.         (assign_to_key "%#75" "wsback")
  94.         (assign_to_key "%#77" "wsfwd")
  95.         (assign_to_key "%#79" "end_of_window")
  96.         (assign_to_key "%#80" "wsdown")
  97.         (assign_to_key "%#81" "page_down")
  98.         (assign_to_key "%#82" "paste")
  99.         (assign_to_key "%#88" "search_back")
  100.         (assign_to_key "%#117" "end_of_buffer")
  101.         (assign_to_key "%#118" "end_of_line")
  102.         (assign_to_key "%#119" "top_of_buffer")
  103.         (assign_to_key "%#132" "beginning_of_line")
  104.         (assign_to_key "#14122" "undo")
  105.         (assign_to_key "#18989" "cut")
  106.         (assign_to_key "#20011" "copy")
  107.         (assign_to_key "%#104" "mark_pos")
  108.         (assign_to_key "%#105" "res_pos")
  109.         (assign_to_key "#7" "delete_char")
  110.     )
  111. )
  112. opy")
  113.         (assign_to_key "%#104" "mark_pos")
  114.         (assign_to_key "%#105" "res_pos")
  115.         (assign_to_key "#7" "delete